home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d6
/
mailmen.arc
/
BIRTHDAY.PRG
next >
Wrap
Text File
|
1991-01-10
|
768b
|
35 lines
* BIRTHDAY.PRG PRINTS CHRISTMAS LABELS FOR MAILING LIST PROGRAM (C) COPYRIGHT
* DECEMBER 3, 1983 BY PHILIP K. PERLMAN
SET TALK OFF
ERASE
@ 10,5 SAY 'Mount Labels one across by 15/16" high in Printer'
@ 12,5 SAY 'Press any key when ready'
?
?
?
?
?
?
?
?
?
wait
USE MAIL
GO TOP
SET PRINT ON
? CHR(15)
DO WHILE .NOT. EOF
IF BIRTHDAY <> ' '
? TRIM(FIRST), LAST
? ADDR1
? ADDR2
? TRIM(CITY)-"," , STATE, ZIP
? BIRTHDAY
?
ENDIF
SKIP
ENDDO
? CHR(18)
SET PRINT OFF
RETURN